Option Explicit
Sub N_Sample005()
    Dim myStr As String
    N_Sample005_1 myStr:="N_Sample005_1"   'w{ǦWٻPr
End Sub

'QIsX{
Sub N_Sample005_1(myStr As String)
    MsgBox myStr
End Sub
